home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Apple Reference & Presen…tion Library 4 (Reseller)
/
Apple Ref. & Pres. Lib.v4.0.iso
/
6-Apple⁄DEC Alliance
/
Solutions & Networking Guide
/
Macintosh Networking Guide
/
Macintosh Networking Guide
/
card_7740.txt
< prev
next >
Wrap
Text File
|
1990-04-17
|
8KB
|
375 lines
-- card: 7740 from stack: in
-- bmap block id: 8767
-- flags: 0000
-- background id: 18894
-- name: RoomMac
----- HyperTalk script -----
on openCard
global sol,env
put "Application Level" into fld "Floorname"
put "Macintosh" into cd fld "CPU"
put "Macintosh Solution Room" & return & "click on the Macintosh" into fld "Tell"
pass openCard
end openCard
--on closeCard
put empty into fld "Tell"
put empty into fld "Prodname"
put empty into fld "Network"
put empty into fld "Side1"
put empty into fld "Side2"
put empty into fld "ProdnameUp"
put empty into fld "Prodname2"
put empty into fld "ProdnameUp2"
pass closeCard
--end closeCard
on mouseEnter
global env
put "Macintosh Applications Room" & return & "click on the Macintosh screen" into fld "Tell"
end mouseEnter
-- part 70 (button)
-- low flags: 00
-- high flags: A000
-- rect: left=68 top=195 right=209 bottom=128
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 242
-- text size: 9
-- style flags: 0
-- line height: 12
-- part name: products
----- HyperTalk script -----
on mouseUp
send mouseUp to btn "Macintosh"
end mouseUp
on mouseEnter
changeCurs 6069
put "Products Button" & return & "click to choose product" into fld "Tell"
end mouseEnter
on mouseLeave
changeCurs 69
put empty into fld "Tell"
end mouseleave
On mouseDown
Global ClickSND
play ClickSND
End mouseDown
-- part 1 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=0 top=25 right=303 bottom=35
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name:
----- HyperTalk script -----
on mouseUp
global env,sol,hall,currentfloor,lastRoom
put env && sol into lastRoom
put "3 Applications" into currentfloor
set lockscreen to true
go to cd hall
unlock screen with dissolve
end mouseUp
On mouseDown
Global ClickSND
play ClickSND
End mouseDown
on mouseEnter
changeCurs 6069
put "Exit to Hallway Button" & return & "click to go to the hallway" into fld "Tell"
end mouseEnter
on mouseLeave
changeCurs 69
put empty into fld "Tell"
end mouseleave
-- part 7 (field)
-- low flags: 01
-- high flags: 0000
-- rect: left=408 top=149 right=164 bottom=455
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 242
-- text size: 9
-- style flags: 8192
-- line height: 12
-- part name: CPU
-- part 10 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=61 top=130 right=211 bottom=151
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Macintosh
----- HyperTalk script -----
on mouseEnter
changeCurs 6069
put "Macintosh Button" & return & "click for information" into fld "Tell"
end mouseEnter
on mouseLeave
changeCurs 69
put empty into fld "Tell"
end mouseleave
On mouseDown
Global ClickSND
play ClickSND
End mouseDown
on mouseUp
global env,sol,lastRoom
put env && sol into lastRoom
set cursor to busy
set lockscreen to true
get the loc of me
put it into MLoc
Put "Zoomer " & MLoc & "," & MLoc & "," & "254,151,278,166" into Zoomy
do Zoomy
Zoomer 254,151,278,166,8,4,507,336
put empty into fld "Prodname"
put empty into fld "Prodname2"
put empty into fld "Side1"
put empty into fld "Side2"
put empty into fld "ProdnameUp"
put empty into fld "ProdnameUp2"
put empty into fld "Network"
put empty into fld "click"
put empty into fld "click2"
put empty into prodname2
put empty into reads2
put empty into writes2
put empty into network2
put empty into sideone
put empty into common
push card
go to cd "White"
go to cd "MacCloseUp"
unlock screen with dissolve
end mouseUp
-- part 11 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=382 top=132 right=210 bottom=476
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: CPU
----- HyperTalk script -----
on mouseEnter
global env
if env is "Mac" then
put "2nd Macintosh Button" & return & "click for information" into fld "Tell"
else
put "Host CPU Button" & return & "click for information" into fld "Tell"
end if
changeCurs 6069
end mouseEnter
on mouseLeave
changeCurs 69
put empty into fld "Tell"
end mouseleave
On mouseDown
Global ClickSND
play ClickSND
End mouseDown
on mouseUp
global env,sol,lastRoom
put env && sol into lastRoom
set cursor to busy
set lockscreen to true
get the loc of me
put it into MLoc
Put "Zoomer " & MLoc & "," & MLoc & "," & "254,151,278,166" into Zoomy
do Zoomy
Zoomer 254,151,278,166,8,4,507,336
put empty into fld "Prodname"
put empty into fld "Prodname2"
put empty into fld "Side1"
put empty into fld "Side2"
put empty into fld "ProdnameUp"
put empty into fld "ProdnameUp2"
put empty into fld "Network"
put empty into fld "click"
put empty into fld "click2"
put empty into prodname2
put empty into reads2
put empty into writes2
put empty into network2
put empty into sideone
put empty into common
push card
set lockscreen to true
go to cd "MacCloseUp3"
unlock screen with dissolve
end mouseUp
-- part 30 (field)
-- low flags: 81
-- high flags: 2000
-- rect: left=132 top=67 right=176 bottom=357
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 12
-- text size: 12
-- style flags: 8192
-- line height: 13
-- part name: Explainer
-- part 71 (button)
-- low flags: 00
-- high flags: A000
-- rect: left=404 top=198 right=210 bottom=455
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 242
-- text size: 9
-- style flags: 0
-- line height: 12
-- part name: products
----- HyperTalk script -----
on mouseUp
send mouseUp to btn "CPU"
end mouseUp
on mouseEnter
changeCurs 6069
put "Products Button" & return & "click to choose product" into fld "Tell"
end mouseEnter
on mouseLeave
changeCurs 69
put empty into fld "Tell"
end mouseleave
On mouseDown
Global ClickSND
play ClickSND
End mouseDown
-- part 73 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=245 top=217 right=241 bottom=279
-- title width / last selected line: 0
-- icon id / first selected line: 7402 / 7402
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Wire2
----- HyperTalk script -----
on mouseUp
send mouseUp to cd btn "CPU"
end mouseUp
On mouseDown
Global ClickSND
play ClickSND
End mouseDown
on mouseEnter
changeCurs 6069
put "Connectivity Connection" & return & "click to select choice" into fld "Tell"
end mouseEnter
on mouseLeave
changeCurs 69
put empty into fld "Tell"
end mouseleave
-- part 74 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=213 top=217 right=241 bottom=247
-- title width / last selected line: 0
-- icon id / first selected line: 3946 / 3946
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: wire1
----- HyperTalk script -----
on mouseUp
send mouseUp to cd btn "Macintosh"
end mouseUp
On mouseDown
Global ClickSND
play ClickSND
End mouseDown
on mouseEnter
changeCurs 6069
put "Connectivity Connection" & return & "click to select choice" into fld "Tell"
end mouseEnter
on mouseLeave
changeCurs 69
put empty into fld "Tell"
end mouseleave
-- part contents for background part 41
----- text -----
Macintosh to Macintosh Engineering/CAD Room
-- part contents for background part 68
----- text -----
Application Level
-- part contents for card part 7
----- text -----
Macintosh